home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / SWEEP.PI < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.2 KB  |  51 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,4,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 30
  10.    hither 1
  11.    resolution 160, 160
  12.    }
  13.  
  14. include "colors.inc"
  15.  
  16. background <0, 0, 0>
  17. light <-10, 10, -20>
  18.  
  19. bounding_slab <1, 0, 0>
  20. bounding_slab <0, 1, 0>
  21. bounding_slab <0, 0, 1>
  22.  
  23. define r0 1
  24. define r1 2
  25. define dt (2.0 * 3.14159265) / 14
  26.  
  27. define star_column
  28. object {
  29.    sweep 2, <0, 1, 0>, 15,
  30.          <r0*cos( 1*dt), r0*sin( 1*dt)>, <r1*cos( 2*dt), r1*sin( 2*dt)>,
  31.          <r0*cos( 3*dt), r0*sin( 3*dt)>, <r1*cos( 4*dt), r1*sin( 4*dt)>,
  32.          <r0*cos( 5*dt), r0*sin( 5*dt)>, <r1*cos( 6*dt), r1*sin( 6*dt)>,
  33.          <r0*cos( 7*dt), r0*sin( 7*dt)>, <r1*cos( 8*dt), r1*sin( 8*dt)>,
  34.          <r0*cos( 9*dt), r0*sin( 9*dt)>, <r1*cos(10*dt), r1*sin(10*dt)>,
  35.          <r0*cos(11*dt), r0*sin(11*dt)>, <r1*cos(12*dt), r1*sin(12*dt)>,
  36.          <r0*cos(13*dt), r0*sin(13*dt)>, <r1*cos(14*dt), r1*sin(14*dt)>,
  37.      <r0*cos( 1*dt), r0*sin( 1*dt)>
  38.    shiny_red
  39.    }
  40.  
  41. star_column
  42.  
  43. // Create a ground plane
  44. object {
  45.    polygon 4, <-20,-2, -20>, <-20,-2, 20>, <20,-2, 20>, <20,-2, -20>
  46.    texture {
  47.       checker matte_white, matte_black
  48.       translate <0, 0.1, 0>
  49.       }
  50.    }
  51.